;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com/
;;;	All rights reserved.
;;;
(defun c:unlisp ( / afuname nevald aload_lst)
;  (setq myfunlst nil)
  (vl-load-com)
  (if (and cust_aload post_aload (or(not myfunlst)(not afam_orig)))
    (progn
      (foreach n post_aload
        (if (member n cust_aload)
          (if afam_orig
            (setq afam_orig (append afam_orig (list n)))
            (setq afam_orig (list n))
          )
          (if myfunlst
            (setq myfunlst (append myfunlst (list n)))
            (setq myfunlst (list n))
          )
        )
      )
      (setq cust_aload nil
            post_aload nil)
    )
  )
  (if afam_orig
    (setq afam_now (atoms-family 1))
    (setq afam_now nil)
  )
  (if (and afam_now afam_orig)
    (foreach n afam_now
      (if (member n afam_orig)
        nil
        (if myfunlst
          (setq myfunlst (append myfunlst (list n)))
          (setq myfunlst (list n))
        )
      )
    )
    (setq myfunlst nil)
  )
  (if myfunlst
    (foreach n myfunlst
      (setq afuname n)
      (while (<(strlen afuname)20)
        (setq afuname (strcat afuname " "))
      )
      (if (eq (substr n 1 2) "C:")
        (progn
          (cond
            ((eq n "C:DDEDIT")(defun c:ddedit () (command ".ddedit")))
            ((eq n "C:DDATTE")(defun c:ddatte () (command ".ddatte")))
            ((eq n "C:SAVE")(defun c:save () (command ".save")))
            ((eq n "C:SAVEAS")(defun c:saveas () (command ".saveas")))
            ((eq n "C:QUIT")(defun c:quit () (command ".quit")))
            ((eq n "C:END")(defun c:end () (command ".end")))
;;;            ((eq n "C:PSPACE")(defun c:pspace () (command ".pspace")))
;;;            ((eq n "C:MSPACE")(defun c:mspace () (command ".mspace")))
            ((eval n) (set (read n) nil)
              (autoload (substr n 3) (list (substr n 3))))
          )
          (princ (strcat "\n" afuname "\t was redefined. "))
          (if aload_lst
            (setq aload_lst (append aload_lst (list n)))
            (setq aload_lst (list n))
          )
        )
        (progn
          (princ (strcat "\n" afuname "\t was set to nil. "))
          (cond
            ((eq n "OLDERR") (setq *ERROR* n)(set (read n) nil))
            ((eq n "*ERROR*") nil)
            ((eq(substr n 1 4) "DOS_") nil)
            ((eq n "ACAD_STRLSORT") nil)
            ((eq n "C:DDEDIT") nil)
            ((eq n "C:DDATTE") nil)
            ((eq n "C:SAVE") nil)
            ((eq n "C:SAVEAS") nil)
            ((eq n "C:QUIT") nil)
            ((eq n "C:END") nil)
;;;            ((eq n "C:PSPACE") nil)
;;;            ((eq n "C:MSPACE") nil)
            ((eval n) (set (read n) nil))
          )
        )
      )
    )
    (princ "\nNothing to make null or undefine. ")
  )
  (setq cur_afam (atoms-family 1))
  (if aload_lst
    (progn
      (setq tmp_afam nil)
      (foreach n aload_lst
        (if (member n cur_afam)
          (if tmp_afam
            (setq tmp_afam (subst nil n tmp_afam))
            (setq tmp_afam (subst nil n cur_afam))
          )
        )
      )
      (setq afam_orig tmp_afam)
      (setq aload_lst nil)
    )
    (setq afam_orig cur_afam)
  )
  (princ)
)